home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 251
- Top = 280
- Width = 411
- Height = 264
- Caption = 'Database Sample'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 7
- Top = 3
- Width = 30
- Height = 13
- Caption = 'Users:'
- end
- object Label2: TLabel
- Left = 170
- Top = 3
- Width = 41
- Height = 13
- Caption = 'Settings:'
- end
- object Panel1: TPanel
- Left = 170
- Top = 20
- Width = 225
- Height = 160
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 0
- object CheckBox1: TCheckBox
- Left = 9
- Top = 10
- Width = 143
- Height = 17
- Caption = 'Is this checked?'
- TabOrder = 0
- end
- object Edit1: TEdit
- Left = 9
- Top = 32
- Width = 59
- Height = 21
- TabOrder = 1
- Text = '0'
- end
- object UpDown1: TUpDown
- Left = 68
- Top = 32
- Width = 12
- Height = 21
- Associate = Edit1
- Min = 0
- Position = 0
- TabOrder = 2
- Wrap = False
- end
- object Memo1: TMemo
- Left = 8
- Top = 61
- Width = 200
- Height = 89
- Lines.Strings = (
- 'Memo1')
- ScrollBars = ssBoth
- TabOrder = 3
- WordWrap = False
- end
- end
- object Button1: TButton
- Left = 8
- Top = 188
- Width = 120
- Height = 22
- Caption = 'Add User'
- TabOrder = 1
- Visible = False
- end
- object Button2: TButton
- Left = 137
- Top = 188
- Width = 120
- Height = 22
- Caption = 'Save User Settings'
- TabOrder = 2
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 265
- Top = 188
- Width = 120
- Height = 22
- Caption = 'Restore User Settings'
- TabOrder = 3
- OnClick = Button3Click
- end
- object DBGrid1: TDBGrid
- Left = 8
- Top = 20
- Width = 155
- Height = 160
- DataSource = dtsPreferences
- Options = [dgEditing, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
- TabOrder = 4
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clWindowText
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- Columns = <
- item
- FieldName = 'UserName'
- end>
- end
- object fstMain: TPFormSettings
- RegistryRootKey = prkCurrentUser
- FormSaveOpt = []
- SaveLocation = pslStream
- MRULength = 0
- Left = 319
- Top = 207
- Settings = (
- ''
- 'CheckBox1.Checked'
- ''
- False
- ''
- 'UpDown1.Position'
- ''
- False
- ''
- 'Memo1.Lines'
- ''
- False)
- end
- object tblPreferences: TTable
- TableName = 'prefs.db'
- Left = 263
- Top = 207
- object tblPreferencesUserName: TStringField
- FieldName = 'UserName'
- end
- object tblPreferencesPreferences: TBlobField
- FieldName = 'Preferences'
- BlobType = ftBlob
- end
- end
- object dtsPreferences: TDataSource
- DataSet = tblPreferences
- Left = 291
- Top = 207
- end
- end
-